ADdata <- read.table("ADdata.txt") #读取实践3存储的文件
#计算行缺失值个数
row_miss <- apply(ADdata == 0, 1 ,sum)
cat(row_miss)
#计算列缺失值个数
col_miss<-apply(ADdata == 0, 2 , sum)
cat(col_miss)








 


